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APPENDIX D 



Card Class File Converter byte code conversion process 

/* 

* Reprocess code block. 
V 

static 
void 

reprocessMethoddMethod* imeth) 
( 

int pc; 

int npc; 

int align; 

bytecode* code; 

int codelen; 

int i; 

int opad; 

int npad; 

int ape; 

int high; 

int low; 

/* code info is a table that keeps track of the valid Java bytecodes and their 

* corresponding translation 
*/ 

code = imeth->external->code; 

codelen = imeth->external->code_length; 

jumpPos = 0; 
align = 0; 

f /* Scan for unsupported opcodes */ 

V for (pc = 0; pc < codelen; pc = npc) { 
) if (codeinf o (code [pc] ) .valid == 0) { 
< error ( "Unsupported opcode %d" , codetpc]); 

} 

npc = nextPCtpc, code); 

) 



/* Scan for jump instructions an insert into jump table */ 

for (pc = 0; pc < codelen; pc = npc) { 
npc = nextPC(pc, code); 

if (codeinfo [code (pc] ] .valid == 3) { 

insertJump(pc+l, pc, (intl6) ( (code [pc+1 ] « 8) | code [pc+2 ] ) ) ; 

else if (codeinfo [code [pc] ] .valid == 4) { 
ape = pc & -4; 

low = (code[apc+8] « 24) | (code[apc+9] « 16) 

| (code[apc+10] « 8) | code [apc+11] ; 
high = (code(apc+12] « 24) | (code [apc+13 ] « 16) 




| (code[apc+14 ] << 8) | code [apc+15 ] ; 
for (i = 0; i < high-low+1; i++) { 
insert Jump (apc+ (i*4) +18, pc, 

(intl6) ({code[apc+(i*4)+18] « 8) | code(apc+ (i*4) +19 ] ) ) ; 

insertJump(apc+6, pc, (intl6) ( (code [apc+6 ] << 8) | code[apc+7 ] ) ) ; 

else if (codeinfo [codetpc]] .valid == 5) { 
ape = pc & -4; 

low = (code[apc+8] « 24) | (code(apc+9] « 16) 

| (code[apc+10] « 8) | code [apc+11 ] ; 
for (i = 0; i < low; i++) { 
insert Jump (apc+ (i*8) +18, pc, 

(intl6) ((code(apc+(i*8)+18] « 8) | code(apc+ (i*8) +19] ) ) ; 

insertJump (apc+6, pc, (int!6) ( (code[apc+6] « 8) | code[apc+7] ) ) ; 



ffifdef TRANSLATE_BYTECODE 

/* Translate specific opcode* to general ones */ 

for (pc = 0; pc < codelen; pc = npc) { 
/* This is a translation code •/ 
if (codeinfo (code {pc] ] .valid == 2) { 
switch (code(pcj) { 
case ILOAD_0: 
case ILOAD.l: 
case IL0AD_2: 
case IL0AD_3 : 

insertSpace(code, fccodelen, pc, 1); 
align += 1; 

code(pc+l] = code(pc) - ILOAD_0; 

code[pc+0] = I LOAD; 

break; 

case ALOAD_0 : 
case ALOAD_l: 
case ALOAD_2: 
case ALOAD_3: 

insertSpace(code, fccodelen, pc, 1); 

align += 1; 

code[pc+l] = code(pc) - ALOAD_0 ; 

code[pc+01 = ALOAD; 

break; 

case ISTORE_0 : 
case ISTORE_l: 
case ISTORE_2 : 
case ISTORE_3 : 

insertSpace(code, &codelen, pc, 1) ; 

align += 1; 

code[pc+l] = codefpc] - ISTORE_0; 
code(pc+0] = ISTORE; 
break ; 

case ASTORE_0 : 
case ASTORE_l: 
case ASTORE_2 : 
case ASTORE_3 : 

insertSpace(code, &codelen, pc, 1) ; 

align += 1; 

code[pc+l] = codefpc] - ASTORE_0; 

COde[pc+0] = ASTORE; 

break; 

case IC0NST_M1: 

insertSpace(code, fccodelen, pc, 2); 

align += 2; 

codeCpc+2] = 255; 

code[pc+l) = 255; 

code[pc+0] = SIPUSH; 

break; 

case ICONST_0: 
case IC0NST_1; 
case ICONST_2: 
case IC0NST_3: 
case IC0NST.4: 
case IC0NST_5: 

insertSpace(code, &codelen, pc, 2); 

align += 2; 

code[pc+2] = codefpc] - ICONST_0; 
code[pc+l] = 0; 
code(pc+0] = SIPUSH; 
breaks- 
case LDC1: 

insertSpacetcode, icodelen, pc, 1); 

align += 1; 

code[pc+l] = 0; 

code{pc+0] = LDC2; 

break; 




case BIPUSH: 

insertSpace (code, icodelen, pc, 1); 
align += 1; 

if ( (int8)code[pc+2] >= 0) { 
code ( pc+1] = 0; 

) 

else { 

code[pc+l] = 255; 

} 

code(pc+0] = SIPUSH; 
break; 

case INT2 SHORT: 

removeSpace (code, &codelen, pc, 1) ; 
align - = 1; 
npc = pc; 
continue; 

} 

} 

else if (codeinfo [code [pc] ] .valid == 4 | | codeinfo [code [pc] ] .valid == 5) { 
/* Switches are aligned to 4 byte boundaries. Since we are inserting and 

* removing bytecodes, this may change the alignment of switch instructions. 

* Therefore, we must readjust the padding in switches to compensate. 
*/ 

opad = (4 - {((pc+1) - align) % 4)) % 4; /* Current switch padding */ 
npad = (4 - ((pc+1) % 4)) % 4; /* New switch padding */ 

if (npad > opad) ( 

insertSpace (code, icodelen, pc+1, npad - opad); 

align += (npad - opad) ; 

} 

else if (npad < opad) { 

removeSpace (code, tcodelen, pc+1, opad - npad); 
align -= (opad - npad) ; 

) 

) 

npc = nextPC(pc, code); 

} 

ftendif 




/* Relink constants */ 

for (pc = 0; pc < codelen; pc = npc) ( 
npc = nextPC(pc, code); 

i = (uintl6) ( (code [pc+1] << 8) + code(pc+2]); 

switch (code(pcl) { 
case LDC2 : 

/* 'i' == general index */ 
switch (cltem(i) . type) { 
case CONSTANT_Integer : 
i = cltem(i) . v. tint; 
codefpc] = SIPUSH; 
break; 

case CONSTANT_String: 

i = buildStringlndex(i) ,- 
break; 

default: 

error ( "Unsupported loading of constant type"); 
break; 

} 

break ; 

case NEW: 

case INSTANCEOF: 

case CHECKCAST: 

/* *i' == class index */ 

i = buildClassIndex(i) ; 

break; 

case GETFIELD: 
case PUTFIELD: 

/* 'i' == field index */ 



0'^ 



/* i = buildFieldSignacurelndex(i) ; */ 
i = buildStaticFieldSignaturelndex(i) ; 
break; 

case GETSTATIC: 
case PUTSTATIC: 

/* 'i' = = field index */ 

i = buildStaticFieldSignaturelndex(i) ; 

break; 

case INVOKEVIRTUAL : 
case INVOKENONVIRTUAL: 
case INVOKESTATIC: 
case INVOKE INTERFACE : 

/* 'i' == method signature index */ 

i = buildSignaturelndex(i) ; 

break; 



/* Insert application constant reference */ 
code(pc+lJ = (i >> 8) & OxFF; 
code(pc+2] = i & OxFF; 



#ifdef MODIFY_BYTECODE 
/* Translate codas */ 

for (pc = 0; pc < codelen; pc = npc) { 
npc = nextPCtpc, code) ; 

code[pc] = codeinfo [code [pc J ]. translation; 

} 

#endif 



/* Relink jinnpa */ 

for (i = 0; i < jumpPos; i++) { 
ape = jumpTable [i] .at; 
pc = jumpTable [ i] . from; 
npc = jumpTable [i] . to - pc; 

code(apc+0] = (npc » 8) & OxFF; 
codetapc+1] = npc & OxFF; 

) 

/* Fixup length */ 

imeth->extemal->code_length = codelen; 
imeth->esize = (SIZEOFMETHOD + codelen +3) & -4 



} 




